From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 27 Mar 2004 00:06:30 +0000 (+0000)
Subject: (gnus-server-prepare): Remove spurious call to `cdr'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23487
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a0d222a95f2d89197c611c555225abd2c06a5ab8;p=emacs.git

(gnus-server-prepare): Remove spurious call to `cdr'.
---

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 31ad693a544..4015916a674 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -219,7 +219,7 @@ The following commands are available:
     (while alist
       (unless (member (cdar alist) done)
 	(push (cdar alist) done)
-	(cdr (setq server (pop alist)))
+	(setq server (pop alist))
 	(when (and server (car server) (cdr server))
 	  (gnus-server-insert-server-line (car server) (cdr server))))
       (when (member (cdar alist) done)